|
Engineering Base : Automatic scaling Layout symbols
ismo am 08.01.2014 um 16:07 Uhr (1)
You can only do it with a "Stretch Handle". If you insert the Stretch Handle in your Shape, its properties will have an option "Modify size at item" - this was only added in some newer Versions - which allow you to select one out of the Attributes "Height", "Width" and "Depth".Your shape needs to consist only of lines, which can then be configured via their properties (stretch) to follow the Stretch Handle. It can probably only be used for simple cases.!
|
|
Engineering Base : VBA Typedefinitions in 6.6
ismo am 06.11.2015 um 18:43 Uhr (1)
Ja klar, die Referenz ist natürlich vorhanden: Engineering Base 18.0 Type Library.Die TypenDefinition bekomme ich ja auch korrekt, hier der Beispielcode:Public Sub testTypeDef() Dim defs As TypeDefinition Dim item As TypeItem Dim dd As TypeDefinitions Dim i As Long Set dd = Application.TypeDefinitions Set defs = dd.ItemByKind(aucObjFunctionTypes) Set item = defs.TypeItems.item(1) i = item.AttributeDefinitions.Count End Sub"item" ist dann der "ActuatorTag" (erster Funktionstyp, Englische Version), und ich ...
|
|
Engineering Base : Load Data Einstellungen fehlen auf Reports
ismo am 28.07.2020 um 16:20 Uhr (1)
Hallo zusammen,Wir haben vor einiger Zeit auf EB 2020 aufdatiert und jetzt habe ich festgestellt dass bei vielen Reports in alten Projekten die Properties nicht mehr korrekt funktionieren. Es fehlen die Einstellungen für Load Data (Search Items Extended, Load only Items nested in start item), die Selektion der Typen ist aber sichtbar...Einzige Lösung die ich habe ist den Report zu löschen und neu zu erstellen aber dann verliere ich die Revisionen....Hat jemand einen Tipp wie man die Einstellungen des Works ...
|
|
Engineering Base : Attribute in der Zeichnung per VBA belegen
arndvanuden am 19.10.2009 um 13:21 Uhr (0)
habe so etwas "ähnliches" schon mal gemacht.Ich habe den Einbauplatz per VBA von Geräten gesucht.Hier ein paar Ausschnitte von Script.Dim oSel As ObjectItemsDim oLocation1 As ObjectItemSet oSel = Application.Selection(1).Project.FindObjects(aucObjLocation, aucSearchDeep)Set oSel1 = Application.Selection(1).Project.FindObjects(aucObjDevice, aucSearchDeep)For Each oLocation1 In oSel Ab hier werden alle Arbeitsplätze durchsucht position1 = oLocation1.FullName exworksheet.Cell ...
|
|
Engineering Base : VBA: Ändern der Nebendarstellung
Peter T. am 02.04.2012 um 15:03 Uhr (0)
Hallo,ich bastel gerade ein Makro zum Setzen der Eigenschaft "Nebendarstellung" bei Klemmen unter bestimmten Bedingungen. Das heißt ich durchsuche die Geräte nach Klemmen und setze dann das Attribut "Nebendarstellung" (aucAttrSecondaryRepresentation). Leider gelingt das abschließende store nicht ("Laufzeitfehler 445, Objekt unterstützt diese Aktion nicht").Hier der Code (sinngemäß):Code: Set obj = Application.Selection.Item(1).FindObjects(aucObjDevice, aucSearchDeep, aucDevTerminal).Item(1) obj.SourceAssoc ...
|
|
Engineering Base : Befehle bei Formelattributen
Fatal System Error am 19.11.2012 um 08:36 Uhr (0)
Gedacht ist ein User Interface, wo eingestellt werden kann,z.b. gehe vom Start Item zum Parent und vom Parent über die Associated Function und zeige mit ein Attribut an. Dieses kann man sich über eine grafische Oberfläche zusammenstellen. Es werden an der aktuellen Instanz immer alle möglichen Aktionen angezeigt. Anhang: Der Anhang zeigt eine keines Beispiel, wie so was aussehen könnte.
|
|
Engineering Base : Kabelziele aus Drahtzielen generieren Makro
Badger am 25.02.2014 um 11:40 Uhr (1)
Hallo zusammen.Das Makro hat nun 3 Jahre anstandslos funktioniert. Vielleicht setzt es ja auch sonst noch wer ein.Nun musste ich es etwas umbauen. Neu soll es zwischen automatischen und manuell vergebenen Zielen unterscheiden.Gelöst habe ich es so:With oCbl.Destinations If .Item(1).ManualEntry Then .Remove (1) End If If .Item(2).ManualEntry Then .Remove (2) End If .StoreWollte euch das nicht vorenthalten falls jemand auf das gleiche Problem stösst.
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
